home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / UNCX01.F10 < prev    next >
Encoding:
Text File  |  1996-04-01  |  2.6 KB  |  45 lines
  1. REDEF/ON                               $$ ALLOW VARIABLES TO BE OVERWRITTEN
  2.                                        
  3. CIMFIL/ON,PARTNO                       $$ CAPTURE THE PARTNO LINE
  4.  STRNG=TEXT/CLW                        $$ STORE THE TEXT TO STRING
  5.  STRNG=TEXT/OMIT,STRNG,1               $$ REMOVE THE SPACES 
  6.  CMPR=CMPRF(STRNG,(TEXT/' 0'))         $$ COMPARE THE STRING TO SEE IF IT'S EMPTY
  7.  IF(CMPR.EQ.1)THEN                     $$ IF THE RESULT EQUALS 1(TRUE)... 
  8.   PROMPT=TEXT/'ENTER PROGRAM NUMBER'   $$ CREATE A VARIABLE WITH THE PROMPT TEXT
  9.   RSLT=FILEF(0,1,PROMPT)               $$ WRITE THE CONTENTS OF PROMPT TO SCREEN
  10.   STRNG=TEXT/READ,0                    $$ STORE THE ANSWER TO STRNG
  11.  ENDIF                                 $$ END IF TR
  12.  PARTNO/STRNG                          $$ REDEFINE PARTNO LIN
  13. CIMFIL/OFF                             $$ END ROUTINE
  14.                                     
  15. CIMFIL/ON,MACHIN                       $$ CAPTURE MACHIN LINE
  16.  RSLT=POSTF(13)                        $$ SEND RECORD TO POST
  17.  SEQNO/OFF                             $$ TURN OFF SEQUENCE NUMBERS
  18.  INSERT/'O',STRNG,'$'                  $$ OUTPUT THE O ADDRESS WITH THE NUMBER
  19. CIMFIL/OFF                             $$ END ROUTINE
  20.                                        
  21. CIMFIL/ON,LOADTL                       $$ CAPTURE THE LAODTL
  22.  RSLT=POSTF(9,7,159)                   $$ CHANGE LENGTH TO ADJUST(159)
  23.  RSLT=POSTF(10,6,0)                    $$ CHANGE THE LENGTH TO 0
  24.  RSLT=POSTF(20)                        $$ SAVE RECORD
  25.  MODE/INVERS,AUTO                      $$ TURN ON INVERSE TIME
  26.  PREFUN/90,NEXT                        $$ G90 NEXT TO...
  27.  PREFUN/80,NEXT                        $$ G80 NEXT TO...  
  28.  PREFUN/40,NEXT                        $$ G40 NEXT TO...  
  29.  PREFUN/17,NEXT                        $$ G17 NEXT TO...  
  30.  PREFUN/0,                             $$ G0  
  31.  FROM/0,0,0                            $$ ESTABLISH START POSITION
  32.  RSLT=POSTF(21)                        $$ RELOAD SAVED RECORD
  33.  RSLT=POSTF(13)                        $$ SEND RECORD TO POST
  34. CIMFIL/OFF                             $$ END ROUTINE
  35.                                        
  36. CIMFIL/ON,END                          $$ CAPTURE THE END 
  37.  RSLT=POSTF(20)                        $$ SAVE RECORD ASIDE
  38.  AUXFUN/9,NEXT                         $$ M9 NEXT TO...
  39.  AUXFUN/5,                             $$ M5
  40.  INSERT/'G90G49Z0.$'                   $$ INSERT G0G49Z0
  41.  INSERT/'E0X0.Y0.$'                    $$ INSERT E0X0Y0
  42.  RSLT=POSTF(21)                        $$ RELOAD RECORD
  43.  RSLT=POSTF(13)                        $$ SEND IT OFF TO THE POST
  44. CIMFIL/OFF                             $$ END ROUTINE
  45.